<script>on mouseUpput cd fld 1 into cd fld 2end mouseUp</script>
</part>
<part>
<id>13</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>48</left>
<top>267</top>
<right>222</right>
<bottom>289</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Try ChangeCase</name>
<script>on mouseUpglobal hyperDebugItput "True" into hyperDebugItask "Change case to: Uppercase, Lowercase, Title, Sentence, or Reverse" with "Upper"if it is empty then exit mouseUpput it into methodif method is "s" or method is "Sentence" thenask "Enter the characters that are valid sentence endings" with "!?.…"put return & it into Endingsend ifput cd fld 2 into containerget ChangeCase("i") -- prewarm XFCNput the ticks into oldTimeput ChangeCase(container,method,endings) into theResultput number of chars in container && "chars," && the ticks - oldTime && "ticks(s)."if theResult is empty then exit mouseUpelse if number of lines in theResult = 1 then answer theResultelse put theResult into cd fld 2end mouseUp</script>
</part>
<part>
<id>15</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>263</left>
<top>267</top>
<right>438</right>
<bottom>289</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Reverse Case (hypertalk)</name>
<script>on mouseUpanswer "This pure HyperTalk example just reverses the case of all"¬&& "the characters in the XFCN description. Expect it to take"¬&& "over a minute!" with "Cancel" or "OK"if it is "Cancel" then exit mouseUpput cd fld 2 into containerput number of chars in container into CharCountset cursor to watchget HTReverseString("i") -- prewarm the functionput the ticks into oldTimeput HTReverseString(container) into theResultput CharCount && "Chars," && the ticks - oldTime && "ticks(s)."if theResult is empty then exit mouseUpelse put theResult into cd fld 2end mouseUp• HTReverseString function. © Ben Lawson, 1993. All rights reserved.• Created by Ben Lawson, 93/01/31. This HyperTalk function is• equivilent to the ChangeCase XFCN's "reverse" form.• It is included for comparision purposes only.function HTReverseString theStringput length(theString) into totalCharsrepeat with i = 1 to totalCharsput CharToNum(char i of theString) into charValueif charValue>96 and charValue<123 thenput NumToChar(charValue-32) into char i of theStringelse if charValue>64 and charValue<91 thenput NumToChar(charValue+32) into char i of theStringend ifend repeatreturn theStringend HTReverseString</script>
</part>
<content>
<layer>card</layer>
<id>9</id>
<text>ChangeCase XFCN 1.1. Copyright Ben Lawson, 1993. All rights reserved.Shareware payment $5.00 for individuals.Example (HyperTalk): answer ChangeCase("abc","upper") -- returns "ABC"Syntax: ChangeCase(Container,<Case>,<SentenceEndings>) The ChangeCase XFCN takes text input and returns that text with the case of its characters changed according to the specified conversion method. This can be done in most scripting or macro languages (such as HyperTalk), but a compiled XFCN beats them for speed and simplicity of use. ChangeCase is ~ 1000 times faster than its HyperTalk equivilent on my Macintosh IIci. ChangeCase is a 3 Kbyte resource that can be installed with ResEdit or a similar utility into any application that supports XCMDs and XFCNs. Example applications that can use XFCNs include HyperCard, Microphone Pro, and 4th Dimension. Note: this XFCN is only designed to function properly with english ASCII input. Use with other character sets may give undesired results.Using ChangeCase============ ChangeCase can be used to quickly change the case of characters to the following states: Lowercase: all letters in lowercase. Reverse: capitals change into lowercase, lowercase letters change into capitals. Sentence: first letter of each sentence capitalized, other letters in lowercase. Title: first letter of each word capitalized, other letters in lowercase. Uppercase: all letters capitalized. ChangeCase does _not_ affect the following characters: • "High" characters (those with ASCII values higher than 126) such as "å", "©", and "◊". • "Low" characters (those with ASCII values lower than 33), such as returns, tabs and linefeeds, as well as other esoteric characters that normally appear as little boxes if they are visible at all. • Numbers or normal symbols and punctuation such as "7", "?", "$" and "@".Syntax: ChangeCase(Container,<Case>,<SentenceEndings>)========================================• Container The text you want to process. If the container contains only "?" or "!" ChangeCase will return brief help or version information respectively.• <Case> (optional: default is "uppercase") How you want to change the case of the characters. If not present or empty ChangeCase will assume you want to convert the text to normal "sentence" form. Choices are "lowercase" (or "lower" or "l"), "sentence" (or "s"), "title" (or "t"), "reverse" (or "r"), or "uppercase" (or "upper" or "u"). As you may have gathered, only the first letter of the chosen form is required. The "sentence" form may give undesirable results, depending on where significant punctuation characters appear. Proper nouns within a sentence will also be adversely affected. All other form will give predictable results.• <SentenceEndings> (optional: default is any of "?", "!", "." or "…") This parameter is only used by the "sentence" form. It specifies a string of characters that can signify the end of a sentence. If not present or empty, ChangeCase assumes you wish to start a new sentence after a return, "?", "!", "." or "…" character that is followed by white space (blank or tab characters). This option may give unanticipated results depending on where the characters you are treating as sentence endings appear within the text.Error Messages=========== If an empty container is sent to ChangeCase, ChangeCase will simply return an empty string (however, be aware that if you mistype the name of the variable that is holding your text HyperCard will assume the the mistyped variable is actually the string itself, and thus ChangeCase will receive and process a short string). There are only two error messages that can occur.• "Error: conversion form specified in param 2 not recognized." will be returned if the second parameter doesn't match the allowed values.• "Error: result does not match input." will be returned if characters have been lost or added to the original string.Examples of Use===========on mouseUp put "abc 123. DEF" into theText answer ChangeCase(theText, "reverse") -- gives "ABC 123. def" answer ChangeCase(theText, "title") -- gives "Abc 123. Def" answer ChangeCase(theText, "upper") -- gives "ABC 123. DEF" answer ChangeCase(theText, "lower") -- gives "abc 123. def" answer ChangeCase(theText, "sentence") -- gives "Abc 123. Def"end mouseUpStandard Legal Stuff============== The ChangeCase XFCN is Copyright 1993 Ben Lawson. All rights reserved. The ChangeCase XFCN is provided "as-is" and without warranty of any kind. The author expressly disclaims all implied warranties, including but not limited to the implied warranties of merchantability and fitness for a particular purpose. The entire risk as to the results and performance of this software is assumed by you. All trademarks mentioned herein are the property of their respective owners. In addition to paying the shareware fee, the following copyright notice must be present in any application or HyperCard stack that uses the ChangeCase XFCN: “The ChangeCase XFCN used herein is copyright 1993 by Ben Lawson with all rights reserved.” This notice need not be visible to users of the application or HyperCard stack.Registration========= The ChangeCase XFCN in this stack is shareware. This means that you are welcome to use it for a trial period of two weeks without cost. However, if you wish to continue to use this XFCN you must pay the appropriate shareware fee. For personal or non-commercial use, you must pay the author a $5.00 (US or Canadian) shareware fee. Payment of the shareware fee entitles registrants to use future versions without further charge. Users wishing to incorporate the ChangeCase XFCN into a commercial product or include it in a for-sale collection must obtain a commercial use license from the author. For use in a single product, the shareware fee is $25 (US or Canadian). For use in an unlimited number of products, the shareware fee is $50 (US or Canadian). Certain restrictions on the use of the ChangeCase XFCN may also apply. Individuals and non-profit oganizations such as registered Apple User Groups may freely distribute the ChangeCase XFCN only if it is distributed in this HyperCard stack without modifications or is contained within an application or HyperCard stack created by a registered user of the ChangeCase XFCN.Contact Information============== Please send all comments, bug reports, or licensing inquiries to:Internet: ben_lawson@cmac.eastern.com (preferred) ben_lawson@magic-bbs.corp.apple.comAmerica Online: LAWSON2 Please send all shareware payments (money orders preferred) to: Ben Lawson 60 Clifton Road Toronto, Ontario, M4T 2E9 CANADAVersion History===========• 1.1: Released 93/05/09. Finally got around to optimizing the sentence conversion method. A five-fold speed improvement now means that it's only three times slower than the simpler methods. Also changed the default <case> form to "uppercase".• 1.0.3: Released 93/05/02. Improved "sentence" <case> form to recognize numbers and high characters as valid sentence beginnings.• 1.0.2: Released 93/02/17. Slightly modified legal values for the <case> parameter. "lower" and "upper" are now recognized.• 1.0.1: Released 93/02/09. Added error check to report if the text string has lost or gained characters during processing.• 1.0: Released 93/01/31. First fully functional version. For my personal use only.End</text>
